home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / ADDUPWCT.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  46 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  : z0 board name, z2 - wildcat, z4 - description, z5 - parameters, if any
  6.  sets z1 %item while %z1 split z1 / ""
  7.  sets item %z0;split s0 " " "/" "." "~" "~" "";sets z3 %z0 setc z1 \L%item
  8.  p?0 if f%n8/%z3.ul p?0 findq "\n%z1," %n8/%z3.ul
  9.  if ? lput \U%item lput " is already specified in %n8/%z3.ul\r\n" sets z0 %z3 return
  10.  p?0 if f%n7/%z3.lst p?0 findq "\n%z1 " %n7/%z3.lst
  11.  if ? lput \U%item lput " is already available at %z4\r\n" sets z0 %z3 return
  12.  sets z0 %z3 set z3 x;while !Jz3,yn acceptl1 z3 "Upload %z1 (y/n)? "
  13.  ife "iz3,y" goto beg;return
  14. top lput "\E[0m\E[2J\E[37;44mEnter Files to be uploaded to %z4\E[0m\r\n"
  15. next: lput "\r\nThe filename to be uploaded must not include directory delimiters(/).  Wildcard"
  16.  lput "\r\nspecifications with '?' or '*' may be used only by registered ZCOMM or Pro-Yam.\r\n\n\n" set z1 /
  17.  while "%z1>12||Jz1,/, \\" lput "\E[A\E[K\rEnter the Filename to Upload (Enter)=none? \E[12C<\r\n" accept z1 "\E[A\E[43C"
  18.  ife !%z1 return;if !f%dirsx/%z1 lput "File %dirsx/%z1 not found.\r\n" goto next
  19.  if "Jz1,*?" expand %lib/addupwct.t %dirsx/%z1;goback next
  20.  sets item %z1 sets z3 %z0 setc z1 \L%item
  21.  p?0 if f%n8/%z3.ul p?0 findq "\n%z1," %n8/%z3.ul
  22.  if ? lput \U%item lput " is already specified in %n8/%z3.ul\r\n" sets z0 %z3 goback next
  23.  p?0 if f%n7/%z3.lst p?0 findq "\n%z1 " %n7/%z3.lst
  24.  if ? lput \U%item lput " is already available at %z4\r\n" sets z0 %z3 goback next
  25.  sets z0 %z3 gosub beg.%lib/addupwct.t;goback next
  26. beg:
  27.  : filename.ext,area,password,1st 40 chars of descr;2nd 40 chars of descr
  28.  split s0 "~" "~" ";" "";ife !%z2 goto darea;lput \r\n
  29. narea: split z2 ":" "," "";setc z0 \U%z0 lput "[%z0] - %z1\r\n";if %z2 goback narea
  30. darea:
  31.  split s0 " " "/" "." "~" "~" ""
  32.  lput \r\n set z3 "" while !%z3 acceptl1 z3 "Save File to Which Area: "
  33.  lput \r\n set z9 x while "!Jz9,yn" acceptl1 z9 "Do you wish to password protect this file(y/n): "
  34.  set z6 "" if "iz9,y" set z6 , while "%z6>12||Jz6,," acceptl z6 "Enter a password (12 characters max): "
  35.  ife !%z6 set z6 none;lput "\r\nDescriptions lines must not use semicolons(;).\r\n"
  36.  lput "\r\nEnter description for \U%item:\r\n"
  37.  lput "\r\nYou may enter up to 2 lines 40 characters long:\r\n"
  38.  lput "\r\n        1---+---10----+---20----+---30----+---40\r\n\n" set z7 ";"
  39.  while "%z7>40||%z7<12||Jz7,;" lput "\E[A\E[K\rLine 1: \E[40C<\r\n" accept z7 "\E[A\E[8C"
  40.  lput "        1---+---10----+---20----+---30----+---40\r\n\n" set z8 ";"
  41.  while "%z8>40||Jz8,;" lput "\E[A\E[K\rLine 2: \E[40C<\r\n" accept z8 "\E[A\E[8C"
  42.  ife %z8 sets z7 "%z7;%z8";ife r nolog closerx;ki;create -+S!i %n8/%z0.ul;echof "\T%item,%z3,%z6,%z7"
  43.  if r w;nolog closerx;lput "\r\nUpload entry in %n8/%z0.ul for %item to %z4.\r\n"
  44.  if c ki;create -+S!i %n9/ZC%d%ano.LOG
  45.  return
  46.